home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / TOC.DIR / 00008_Script_sbt1x < prev    next >
Text File  |  1995-11-21  |  2KB  |  73 lines
  1. -- standard button trios
  2. --property myRollover, myPressed, myChannel, myScript, ancestor
  3.  
  4. --on birth me, sp, ro, pr, sc
  5. --  set ancestor to birth(script "sb",sp,sc)
  6. --  set myRollover to (the number of cast ro)
  7. --  set myPressed to (the number of cast pr)
  8. --  set myScript to sc
  9. --  set myChannel to integer(sp)
  10. --  return me
  11. --end
  12.  
  13. --change appearance
  14. on sbt1rollo myChannel, myRollover
  15.   --put ">>>my rollover cast 8 " & myRollover
  16.   
  17.   puppetSprite myChannel,TRUE
  18.   set the castNum of sprite myChannel to myRollover
  19.   updateStage
  20.   --NOWdmdpuppetSprite myChannel, false
  21. end
  22.  
  23. on sbt1press theLine
  24.   set myChannel = integer(item 4 of theLine)
  25.   set myPressed = integer(item 6 of theLine)
  26.   --put ">>> on press cast 8" 
  27.   puppetSprite myChannel,TRUE
  28.   set the castNum of sprite myChannel to myPressed
  29.   updateStage
  30.   puppetSprite myChannel, false
  31. end
  32.  
  33. on sbt1norm theLine
  34.   set myChannel = integer(item 4 of theLine) 
  35.   puppetSprite myChannel, false
  36. end
  37.  
  38. --
  39. --
  40. -- Note that for some, we have two args, so get items 7 to 8
  41. --
  42. on sbt1doScript theLine
  43.   --global gCursor
  44.   
  45.   --  set dontChangeCursor = (gCursor = 4)
  46.   --  set gCursor = 4
  47.   --  cursor gCursor
  48.   --  
  49.   cursor 4
  50.   
  51.   hideCOMenus
  52.   --
  53.   --
  54.   -- get the frames to preload
  55.   --
  56.   set labName = item 8 of theLine
  57.   set startFrame = label(labName)
  58.   --go to startFrame - 1
  59.   set endFrame = label(labName & "M")
  60.   pplLoad(startFrame, endFrame)
  61.   --pplload(getAt(gPreloadList, myChannel))
  62.   
  63.   --  if not dontChangeCursor then
  64.   --    set gCursor = -1
  65.   --    cursor gCursor
  66.   --  end if
  67.   --  
  68.   cursor -1
  69.   
  70.   set command = (item 7 of theLine) & quote & (item 8 of theLine) & quote
  71.   do command
  72. end
  73.